MacFormat 1997 February/macformat-047.iso/Shareware Plus/Developers/CLImax 1.0/AppleScript and CLImax/Advanced AppleScript/Handlers to try/geturl/geturl.rsrc/TEXT_256.txt

Text File | 1996-04-11 | 289 b | 13 lines

on geturl(FTPURL)
 tell application "Anarchie"
  activate
  set ftpResult to -23005
  repeat until ftpResult = 0
   with timeout of 60000 seconds
    set ftpResult to geturl (FTPURL as string)
    if ftpResult ≠ 0 then close front window
   end timeout
  end repeat
 end tell
end geturl